home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE06 / CONSTRUC / FILEMODE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-12-11  |  742 b   |  33 lines
  1. unit Filemode;
  2. interface
  3. uses Forms, Buttons, StdCtrls, ExtCtrls;
  4.  
  5. Type
  6.   TFileModeDlg = class(TForm)
  7.     OKBtn: TBitBtn;
  8.     CancelBtn: TBitBtn;
  9.     HelpBtn: TBitBtn;
  10.     Bevel1: TBevel;
  11.     FileAccess: TRadioGroup;
  12.     FileSharing: TRadioGroup;
  13.     procedure OKBtnClick(Sender: TObject);
  14.     procedure FormActivate(Sender: TObject);
  15.   public
  16.     FileShareMode: Word;
  17.   end;
  18.  
  19. implementation
  20. {$R *.DFM}
  21.  
  22. procedure TFileModeDlg.FormActivate(Sender: TObject);
  23. begin
  24.   FileAccess.ItemIndex := (FileShareMode MOD $10);
  25.   FileSharing.ItemIndex := (FileShareMode SHR 4)
  26. end;
  27.  
  28. procedure TFileModeDlg.OKBtnClick(Sender: TObject);
  29. begin
  30.   FileShareMode := FileAccess.ItemIndex + (FileSharing.ItemIndex SHL 4)
  31. end;
  32.  
  33. end.